home *** CD-ROM | disk | FTP | other *** search
- <%@ LANGUAGE = VBScript %>
- <% Option Explicit %>
- <!-- #include file="directives.inc" -->
-
- <% if Session("FONTSIZE") = "" then %>
- <!--#include file="iito.inc"-->
- <% else %>
- <!--#include file="iifmsg.str"-->
- <%
-
- On Error Resume Next
-
- Dim path, currentobj,agreeting, greeting, arraybound, i
-
- path=Session("spath")
- Session("path")=path
- Set currentobj=GetObject(path)
- Session("SpecObj")=""
- Session("SpecProps")=""
-
- if IsArray(currentobj.GreetingMessage) then
-
- agreeting=currentobj.GreetingMessage
- greeting= ""
- arraybound=UBound(agreeting)
- for i=0 to arraybound
- greeting=greeting & agreeting(i)
- Next
- else
- greeting=currentobj.GreetingMessage
- end if
-
- %>
-
- <!--#include file="iiset.inc"-->
- <!--#include file="iisetfnt.inc"-->
- <HTML>
- <HEAD>
- <TITLE></TITLE>
- <SCRIPT LANGUAGE="JavaScript">
- var Global=top.title.Global;
- top.title.Global.helpFileName="iipz_2";
-
- function loadVals(){
- }
-
- </SCRIPT>
- </HEAD>
-
- <BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadVals();" >
- <%= sFont("","","",True) %>
- <B><%= L_VSERVERMSG_TEXT %></B>
- <FORM NAME="userform" onSubmit="return false">
-
- <TABLE BORDER=0 CELLPADDING=0>
- <TR>
- <TD><%= sFont("","","",True) %><%= L_WELCOME_TEXT %></FONT></TD>
- </TR>
- <TR>
- <TD>
-
- <% if Session("IsIE") then %>
- <TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSIE_NUM %>><%= greeting %></TEXTAREA>
- <% else %>
- <TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSNS_NUM %>><%= greeting %></TEXTAREA>
- <% end if %>
-
-
- </TD>
- </TR>
-
- <TR>
- <TD HEIGHT=4><%= sFont("","","",True) %> </FONT></TD>
- </TR>
-
- <TR>
- <TD><%= sFont("","","",True) %><%= L_EXIT_TEXT %></FONT></TD>
- </TR>
-
- <TR>
- <TD><%= sFont("","","",True) %><%= text("ExitMessage",L_EXIT_NUM,"","","",false,false) %></FONT></TD>
- </TR>
-
- <TR>
- <TD HEIGHT=4><%= sFont("","","",True) %> </FONT></TD>
- </TR>
-
- <TR>
- <TD><%= sFont("","","",True) %><%= L_MAX_TEXT %></FONT></TD>
- </TR>
-
- <TR>
- <TD><%= sFont("","","",True) %><%= text("MaxClientsMessage",L_MAX_NUM,"","","",false,false) %></FONT></TD>
- </TR>
-
-
- </TABLE>
-
- </FORM>
- </FONT>
- </BODY>
-
- </HTML>
- <% end if %>